PATCH TO EDITOR (DISK) DEC-D8-ESAD0PB 


DECUS Program Library Write-up 


DECUS NO. 8-407 


ABSTRACT 

This patch corrects two errors found in EDIT-D Version ESAD. It allows the Editor to work 
with "Dn:name" as input or output device for the source file. 


/ DFVLR - BRG - L - LA 
/MAIN 06 -04 

/PATCH TO EDIT VERSION D8-ESAD 
/CORRECTION OF ERRORS 
/25 NOVEMBER 1970 


/UNITNUMBER OF SAMFIX ROUTINE MUST BE SET TO 
/INPUT DEVICE TO CLEAR UNUSED BLOCKS 
/IN SAM BLOCK IF OPTION D IS REQUIRED. 




*2470 



2470 

5773 

*2573 

JMP 1 2573 

/LINK TO NEW INPUT INITIALIZATION 

2573 

3360 

CHAN1 



*3012 



3012 

3013 

7000 

7000 

*3360 

NOP 

NOP 

/DELETE OLD DEVICE LOADING 

/SET INPUT UNIT TO SAMFIX 

3360 

1763 

CHAN1, 

TAD 1 CHAP01 

3361 

3764 


DCA 1 CHAP01+1 


3362 

5765 


JMP 1 CHAP01+2 


3363 

2323 

CHAP01, 

INUNIT 


3364 

2257 


SAMFUN 


3365 

2426 

*SAMGNB 

SWTSTO 

/MODIFY WRITE ROUTINE IN SAMFIX 

2265 

7126 

SAMGNB, 

STL RTL 

2266 

1257 


TAD SAMFUN 


2267 

3257 


DCA SAMFUN 

/SET WRITE FUNCTION 

2270 

4255 


JMS SAMRD 

/WRITE SAM BLOCK 

2271 

1323 


TAD INUNIT 

/RESET TO READ 

2272 

3257 


DCA SAMFUN 

2273 

5205 


JMP SAMNXT 








/SAMFIX MUST BE SET TO OUTPUT UNIT AT END OF EDIT 
/TO CLEAR RESERVED BUT NOT USED BLOCKS IN SAM. 


*ENDBCK+2 


1554 

5755 


JMP 1 .+1 

/SET LINK 


1555 

3342 

*3342 

CHAN2 



3342 

1750 

CHAN2, 

TAD 1 CHAP02 

/NOW SET SAMFIX TO OUTPUT UNIT 


3343 

3751 

DC A 1 CHAP02+1 


3344 

1750 


TAD 1 CHAP02 



3345 

3752 


DCA 1 CHAP02+2 



3346 

4561 


JMS 1 SAMFXI 

/CLEAR UNUSED BLOCKS 


3347 

5552 


JMP 1 MONITOR 

/EXIT TO MONITOR 


3350 

1701 

CHAP02, 

SMFUNC 


• 

3351 

2257 


SAMFUN 



3352 

2323 

BUFBEG=. 

INUNIT 

/BUFFER BEGIN IS CHANGED TO 
/THIS LOCATION 




*53 




0053 

3353 

END, 

BUFBEG 

/SET NEW BUFFER BEGIN 




*126 




0126 

3353 

BUFR, 

BUFBEG 





/THIS IS THE CORRECTION OF AN ERROR 




/WHICH IS ACTIVATED WHILE KILLING THE READ 
/COMMAND FOR PREPARATION A ZERO DEVIDE INPUT. 




*2446 



• 

2446 

3744 


DCA 1 SWRDK 

/INSTEAD OF DCA SWRDK 



/LINKS AND CONSTANTS FROM MAIN PROGRAM 

INUNIT=2323 

SAMFUN=2257 

SWTST0=2426 

SAMG NB=2265 

SAMRD=2255 

SAMNXT=2205 

ENDBCK-1552 

SAMFXI=161 

MONITOR=152 

SMFUNC=1701 

SWRDK=2544 


2 



t 


i 




BUFBEG 

3353 

BUFR 

0126 

CHAN1 

3360 

CHAN2 

3342 

CHAP01 

3363 

CHAP02 

3350 

END 

0053 

ENDBCK 

1552 

INUNIT 

2323 

MONITO 

0152 

SAMFUN 

2257 

SAMFXI 

0161 

SAMGNB 

2265 

SAMNXT 

2205 

SAMRD 

2255 

SMFUNC 

1701 

SWRDK 

2544 

SWTSTO 

2426 
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Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 







